﻿Public Class frmPrincipal

 



    Private Sub UsuariosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuariosToolStripMenuItem.Click
        Dim CadUsuario As New frmCadUsuario
        CadUsuario.MdiParent = Me
        CadUsuario.Show()
    End Sub

    Private Sub frmPrincipal_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Application.Exit()
    End Sub

    Private Sub frmPrincipal_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
        Me.Text += " - Versão: " + Application.ProductVersion
    End Sub

    Private Sub UsuáriosGrupoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsuáriosGrupoToolStripMenuItem.Click
        Dim CadUsuario As New frmCadGrupoUsuarios
        CadUsuario.MdiParent = Me
        CadUsuario.Show()
    End Sub

    
End Class